Mac Magazin/MacEasy 27/Mac Magazin and MacEasy Magazine CD - Issue 27.iso/Grafik & Text/Sans-Faute⁄Grammaire ƒ/Adaptateurs/spécial HyperCard/Sources des scripts (anglais)/Vérification Pile HyperCard

Text File | 1996-02-20 | 876b | 35 lines

tell application "HyperCard 2.3"
    activate current stack
    set CardNum to 1
    repeat number of card times
        go card CardNum
        set CardNum to CardNum + 1

        set num to 1
        repeat number of card field times
            if not dontSearch of card field num then
                set texttoCheck to card field num as styled text
                tell application "Sans-Faute/Grammaire 2"
                    set textchecked to Checking texttoCheck
                end tell
                set card field num to textchecked
            end if
            set num to num + 1
        end repeat

        set num to 1
        repeat number of background field times
            if not dontSearch of background field num then
                set texttoCheck to background field num as styled text
                tell application "Sans-Faute/Grammaire 2"
                    set textchecked to Checking texttoCheck
                end tell
                set background field num to textchecked
            end if
            set num to num + 1
        end repeat

    end repeat
end tell